SoloCodigo

Hola:
intenta con este codigo:

   Dim xlApp As Excel.Application
   Dim xlBook As Excel.Workbook
   Dim xlSheet As Excel.Worksheet

   Set xlApp = New Excel.Application
   Set xlBook = xlApp.Workbooks.Add
   Set xlSheet = xlBook.Worksheets.Add
   Set rsREPORTE = New Recordset

    xlSheet.Cells(i, 1).Value = "DemoTitulo"
    xlSheet.Cells(i, 2).Value = "InsertaValores1"
    xlSheet.Cells(i, 3).Value = "InsertaValores2"


   xlSheet.SaveAs "c:INV.xls"
   xlBook.Close
   xlApp.Quit

   Set xlApp = Nothing
   Set xlBook = Nothing
   Set xlSheet = Nothing

saludos;

Hola Kieck:
yo lo hago de esta manera:

Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Set xlBook = GetObject("C:DemoPlant.xlt")
Set xlSheet = xlBook.Worksheets(1)

xlSheet.Cells(1, 1).Value = "Imprimir 1"
xlSheet.Cells(2, 1).Value = "Imprimir 2"

xlSheet.PrintOut

Set xlBook = Nothing
Set xlSheet = Nothing

saludos;